library("unsupervisedMicroarray")
source("./generatePReducersList.R")
source("./generateReducersList.R")
source("./generateRCComputerList.R")
source("./generateNParamAlgList.R")
source("./generateParamAlgList.R")
data(brain)
data(leukemia)
data(carcinoma)
data(colon)

reducers <- generateReducersList()
print("before ParamAlgList")
clusts <-generateParamAlgList()
print("before comps making")
comps <- generateRCComputerList (reducers,clusts)


#score
indList <-list(new("HARandEClusterScore"), new("NVIEClusterScore"),new("BCEClusterScore"),
		new("IIClusterScore"),new("StdbwIClusterScore"),new("SilhIClusterScore"))
#indList <-list(new("HARandEClusterScore"))
indListLen <-length(indList)
#final result
pTester <- new("SumBFrameworkFinalResult")
#bootstraped set
nboots <-3
rboots <- new("RowBootstrapedSet",list(X=brain$X,Y=brain$Y),nboots)
#sets
setList <-list(
		brain
)

parSeq = seq(2,6,1)
print("before loop")
for(ind in 1:indListLen){
	dirName <- paste("./ParamClustClu",class(indList[[ind]]),sep="")
	runner <-new("ClustOneParamTestRunner",setList=setList, compList=comps,
			bootstraperPrototype=rboots,
			finalResultComp=pTester, scoreObj=indList[[ind]],
			resultsDirectory=dirName, paramSeq=parSeq)
	res <- runTest(runner)
}